home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / P / Pushdown Machine 2.3.cpt / Pushdown Machine 2.3 / background_2571.xml < prev    next >
Extensible Markup Language  |  1992-05-04  |  62KB  |  1,307 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
  3. <background>
  4.     <id>2571</id>
  5.     <filler1>0</filler1>
  6.     <bitmap>BMAP_3867.pbm</bitmap>
  7.     <cantDelete> <true /> </cantDelete>
  8.     <showPict> <true /> </showPict>
  9.     <dontSearch> <false /> </dontSearch>
  10.     <link rel="stylesheet" type="text/css" href="stylesheet_3212.css" />
  11.     <part>
  12.         <id>19</id>
  13.         <type>field</type>
  14.         <visible> <true /> </visible>
  15.         <dontWrap> <true /> </dontWrap>
  16.         <dontSearch> <true /> </dontSearch>
  17.         <sharedText> <false /> </sharedText>
  18.         <fixedLineHeight> <false /> </fixedLineHeight>
  19.         <autoTab> <false /> </autoTab>
  20.         <lockText> <true /> </lockText>
  21.         <rect>
  22.             <left>64</left>
  23.             <top>157</top>
  24.             <right>82</right>
  25.             <bottom>175</bottom>
  26.         </rect>
  27.         <style>transparent</style>
  28.         <autoSelect> <false /> </autoSelect>
  29.         <showLines> <false /> </showLines>
  30.         <wideMargins> <false /> </wideMargins>
  31.         <multipleLines> <false /> </multipleLines>
  32.         <reservedFamily> 0 </reservedFamily>
  33.         <titleWidth>0</titleWidth>
  34.         <icon>0</icon>
  35.         <textAlign>left</textAlign>
  36.         <font>Geneva</font>
  37.         <textSize>12</textSize>
  38.         <textStyle>plain</textStyle>
  39.         <textHeight>16</textHeight>
  40.         <name>NumStates</name>
  41.         <script></script>
  42.     </part>
  43.     <part>
  44.         <id>2</id>
  45.         <type>field</type>
  46.         <visible> <true /> </visible>
  47.         <dontWrap> <false /> </dontWrap>
  48.         <dontSearch> <true /> </dontSearch>
  49.         <sharedText> <false /> </sharedText>
  50.         <fixedLineHeight> <false /> </fixedLineHeight>
  51.         <autoTab> <true /> </autoTab>
  52.         <lockText> <true /> </lockText>
  53.         <rect>
  54.             <left>271</left>
  55.             <top>1</top>
  56.             <right>511</right>
  57.             <bottom>32</bottom>
  58.         </rect>
  59.         <style>transparent</style>
  60.         <autoSelect> <false /> </autoSelect>
  61.         <showLines> <false /> </showLines>
  62.         <wideMargins> <true /> </wideMargins>
  63.         <multipleLines> <false /> </multipleLines>
  64.         <reservedFamily> 0 </reservedFamily>
  65.         <titleWidth>0</titleWidth>
  66.         <icon>0</icon>
  67.         <textAlign>left</textAlign>
  68.         <font>Palatino</font>
  69.         <textSize>24</textSize>
  70.         <textStyle>plain</textStyle>
  71.         <textHeight>24</textHeight>
  72.         <name>MachineTitle</name>
  73.         <script></script>
  74.     </part>
  75.     <part>
  76.         <id>4</id>
  77.         <type>button</type>
  78.         <visible> <true /> </visible>
  79.         <reserved5> 0 </reserved5>
  80.         <reserved4> 0 </reserved4>
  81.         <reserved3> 0 </reserved3>
  82.         <reserved2> 0 </reserved2>
  83.         <reserved1> 0 </reserved1>
  84.         <enabled> <true /> </enabled>
  85.         <rect>
  86.             <left>401</left>
  87.             <top>297</top>
  88.             <right>436</right>
  89.             <bottom>342</bottom>
  90.         </rect>
  91.         <style>transparent</style>
  92.         <showName> <true /> </showName>
  93.         <highlight> <false /> </highlight>
  94.         <autoHighlight> <true /> </autoHighlight>
  95.         <sharedHighlight> <true /> </sharedHighlight>
  96.         <family>0</family>
  97.         <titleWidth>0</titleWidth>
  98.         <icon>1020</icon>
  99.         <textAlign>center</textAlign>
  100.         <font>Chicago</font>
  101.         <textSize>12</textSize>
  102.         <textStyle>plain</textStyle>
  103.         <name>Help</name>
  104.         <script>on mouseUppush cardvisual effect barn door open slowgo to first card of background Helpend mouseUp</script>
  105.     </part>
  106.     <part>
  107.         <id>5</id>
  108.         <type>field</type>
  109.         <visible> <true /> </visible>
  110.         <dontWrap> <false /> </dontWrap>
  111.         <dontSearch> <false /> </dontSearch>
  112.         <sharedText> <false /> </sharedText>
  113.         <fixedLineHeight> <true /> </fixedLineHeight>
  114.         <autoTab> <false /> </autoTab>
  115.         <lockText> <true /> </lockText>
  116.         <rect>
  117.             <left>28</left>
  118.             <top>140</top>
  119.             <right>64</right>
  120.             <bottom>203</bottom>
  121.         </rect>
  122.         <style>opaque</style>
  123.         <autoSelect> <false /> </autoSelect>
  124.         <showLines> <false /> </showLines>
  125.         <wideMargins> <true /> </wideMargins>
  126.         <multipleLines> <false /> </multipleLines>
  127.         <reservedFamily> 0 </reservedFamily>
  128.         <titleWidth>0</titleWidth>
  129.         <icon>0</icon>
  130.         <textAlign>left</textAlign>
  131.         <font>HAS Font</font>
  132.         <textSize>14</textSize>
  133.         <textStyle>bold</textStyle>
  134.         <textHeight>18</textHeight>
  135.         <name>StackHeading</name>
  136.         <script>on mouseUpif  CheckLock()  then  exit mouseUpput ((the clickV - top of me) div (textHeight of me)) + 1 into SymNumif  SymNum <= 1  thenanswer "Can't change bottom marker symbol"exit mouseUpend ifNewStackSymbol SymNumend mouseUpon NewStackSymbol SymNumput RETURN&RETURN&RETURN&"Enter New"&  ¬¨RETURN&RETURN&RETURN& "STACK SYMBOL" into background field "Prompt"show background field "Prompt"select line SymNum of merepeat foreverput inkey() into NewSymbolif  NewSymbol = ""  then  next repeatif  NotDuplicate(NewSymbol, SymNum)  then  exit repeatend repeatput NewSymbol into line SymNum of meput NewSymbol into char SymNum of background field "StackList"hide background field "Prompt"put empty into background field "Prompt"end NewStackSymbolfunction NotDuplicate  NewSymbol, SymNumget background field "StackList"repeat with ch = 1 to length(it)if  ch <> SymNum  thenif  charToNum(char ch of it) = charToNum(NewSymbol)  thenbeepanswer "Duplicate Symbol not allowed."return falseend ifend ifend repeatreturn trueend NotDuplicate</script>
  137.     </part>
  138.     <part>
  139.         <id>20</id>
  140.         <type>field</type>
  141.         <visible> <true /> </visible>
  142.         <dontWrap> <true /> </dontWrap>
  143.         <dontSearch> <true /> </dontSearch>
  144.         <sharedText> <false /> </sharedText>
  145.         <fixedLineHeight> <false /> </fixedLineHeight>
  146.         <autoTab> <true /> </autoTab>
  147.         <lockText> <true /> </lockText>
  148.         <rect>
  149.             <left>81</left>
  150.             <top>140</top>
  151.             <right>99</right>
  152.             <bottom>157</bottom>
  153.         </rect>
  154.         <style>transparent</style>
  155.         <autoSelect> <false /> </autoSelect>
  156.         <showLines> <false /> </showLines>
  157.         <wideMargins> <false /> </wideMargins>
  158.         <multipleLines> <false /> </multipleLines>
  159.         <reservedFamily> 0 </reservedFamily>
  160.         <titleWidth>0</titleWidth>
  161.         <icon>0</icon>
  162.         <textAlign>left</textAlign>
  163.         <font>Geneva</font>
  164.         <textSize>12</textSize>
  165.         <textStyle>plain</textStyle>
  166.         <textHeight>16</textHeight>
  167.         <name>NumSymbols</name>
  168.         <script></script>
  169.     </part>
  170.     <part>
  171.         <id>6</id>
  172.         <type>field</type>
  173.         <visible> <true /> </visible>
  174.         <dontWrap> <false /> </dontWrap>
  175.         <dontSearch> <false /> </dontSearch>
  176.         <sharedText> <false /> </sharedText>
  177.         <fixedLineHeight> <false /> </fixedLineHeight>
  178.         <autoTab> <false /> </autoTab>
  179.         <lockText> <true /> </lockText>
  180.         <rect>
  181.             <left>63</left>
  182.             <top>119</top>
  183.             <right>184</right>
  184.             <bottom>141</bottom>
  185.         </rect>
  186.         <style>opaque</style>
  187.         <autoSelect> <false /> </autoSelect>
  188.         <showLines> <false /> </showLines>
  189.         <wideMargins> <true /> </wideMargins>
  190.         <multipleLines> <false /> </multipleLines>
  191.         <reservedFamily> 0 </reservedFamily>
  192.         <titleWidth>0</titleWidth>
  193.         <icon>0</icon>
  194.         <textAlign>left</textAlign>
  195.         <font>HAS Font</font>
  196.         <textSize>14</textSize>
  197.         <textStyle>bold</textStyle>
  198.         <textHeight>18</textHeight>
  199.         <name>SymbolHeading</name>
  200.         <script>on mouseUpif  CheckLock()  then  exit mouseUpput ((the clickH - left of me) div 54) + 1 into SymNumNewSymbol SymNumend mouseUpon NewSymbol SymNumput "Enter New" into line 5 of background field "Prompt"put "INPUT SYMBOL" into line 8 of background field "Prompt"show background field "Prompt"select char 6*SymNum-5 to 6*SymNum-3 of merepeat foreverput inkey() into NewSymbolif  NewSymbol = ""  then  next repeatif  NotDuplicate(NewSymbol, SymNum)  then  exit repeatend repeatput " "&NewSymbol&"    " ¬¨into char 6*SymNum-5 to 6*SymNum of meput NewSymbol into char SymNum of background field "SymbolList"hide background field "Prompt"put empty into background field "Prompt"end NewSymbolfunction NotDuplicate  NewSymbol, SymNumget background field "SymbolList"repeat with ch = 1 to length(it)if  ch <> SymNum  thenif  charToNum(char ch of it) = charToNum(NewSymbol)  thenbeepanswer "Duplicate Symbol not allowed."return falseend ifend ifend repeatreturn trueend NotDuplicate</script>
  201.     </part>
  202.     <part>
  203.         <id>7</id>
  204.         <type>field</type>
  205.         <visible> <true /> </visible>
  206.         <dontWrap> <false /> </dontWrap>
  207.         <dontSearch> <false /> </dontSearch>
  208.         <sharedText> <false /> </sharedText>
  209.         <fixedLineHeight> <true /> </fixedLineHeight>
  210.         <autoTab> <false /> </autoTab>
  211.         <lockText> <true /> </lockText>
  212.         <rect>
  213.             <left>63</left>
  214.             <top>140</top>
  215.             <right>184</right>
  216.             <bottom>203</bottom>
  217.         </rect>
  218.         <style>rectangle</style>
  219.         <autoSelect> <false /> </autoSelect>
  220.         <showLines> <false /> </showLines>
  221.         <wideMargins> <true /> </wideMargins>
  222.         <multipleLines> <false /> </multipleLines>
  223.         <reservedFamily> 0 </reservedFamily>
  224.         <titleWidth>0</titleWidth>
  225.         <icon>0</icon>
  226.         <textAlign>left</textAlign>
  227.         <font>HAS Font</font>
  228.         <textSize>14</textSize>
  229.         <textStyle>bold</textStyle>
  230.         <textHeight>18</textHeight>
  231.         <name>StateTable</name>
  232.         <script>on mouseUpif  CheckLock()  then  exit mouseUpput ((the clickH - left of me) div 54) + 1 into SymNumput ((the clickV - top of me - 6) div textHeight of me) + 1 into LineNumput RETURN&RETURN&RETURN&"Enter Next"&  ¬¨RETURN&RETURN&RETURN&"STATE" into background field "Prompt"hide background button "StackPointerLeft"hide background button "StackPointerRight"show background field "Prompt"select char 6*SymNum-5 of line LineNum of merepeat foreverget inkey()if  it = ""  then  next repeatput it into NewSymif  (charToNum(it) >= charToNum("a")) and (it <= "e")  thenput numToChar(charToNum(it)-32) into NewSymend ifif  (NewSym >= "A") and (NewSym <= "E")  then exit repeatif  (NewSym = "?")  then  exit repeatbeepend repeatput NewSym into char 6*SymNum-5 of line LineNum of meput RETURN&RETURN&RETURN&"Enter Replacement"&  ¬¨RETURN&RETURN&"STACK SYMBOLS"&  ¬¨RETURN&RETURN&  ¬¨"(<space> to erase symbol or terminate input)"  ¬¨into background field "Prompt"show background field "Prompt"put "   " into char 6*SymNum-3 to 6*SymNum-1 of line LineNum of meput 3 into FirstSymif LineNum = 1  thenput "‚àÜ" into char 6*SymNum-3 of line LineNum of meput 2 into FirstSymend ifrepeat  with N = FirstSym down to 1select char 6*SymNum-N of line LineNum of merepeat foreverget inkey()if  it = ""  then  next repeatif  it = "‚àÜ"  thenbeepanswer "Only one bottom marker allowed"next repeatend ifput it into NewSymexit repeatend repeatput NewSym into char 6*SymNum-N of line LineNum of meif  NewSym = space  then  exit repeatend repeatshow background button "StackPointerLeft"show background button "StackPointerRight"hide background field "Prompt"put empty into background field "Prompt"put char 1 of background field "TableState" into Stateif  State = "A"  thenput background field "StateTable"  ¬¨into background field "StateTable-A"else   if  State = "B"  thenput background field "StateTable"  ¬¨into background field "StateTable-B"else   if  State = "C"  thenput background field "StateTable"  ¬¨into background field "StateTable-C"else   if  State = "D"  thenput background field "StateTable"  ¬¨into background field "StateTable-D"else   if  State = "E"  thenput background field "StateTable"  ¬¨into background field "StateTable-E"end ifend mouseUp</script>
  233.     </part>
  234.     <part>
  235.         <id>8</id>
  236.         <type>button</type>
  237.         <visible> <true /> </visible>
  238.         <reserved5> 0 </reserved5>
  239.         <reserved4> 0 </reserved4>
  240.         <reserved3> 0 </reserved3>
  241.         <reserved2> 0 </reserved2>
  242.         <reserved1> 0 </reserved1>
  243.         <enabled> <true /> </enabled>
  244.         <rect>
  245.             <left>63</left>
  246.             <top>203</top>
  247.             <right>88</right>
  248.             <bottom>220</bottom>
  249.         </rect>
  250.         <style>rectangle</style>
  251.         <showName> <false /> </showName>
  252.         <highlight> <false /> </highlight>
  253.         <autoHighlight> <true /> </autoHighlight>
  254.         <sharedHighlight> <true /> </sharedHighlight>
  255.         <family>0</family>
  256.         <titleWidth>0</titleWidth>
  257.         <icon>26020</icon>
  258.         <textAlign>center</textAlign>
  259.         <font>Chicago</font>
  260.         <textSize>12</textSize>
  261.         <textStyle>plain</textStyle>
  262.         <name>TableShrinkUp</name>
  263.         <script>on mouseUpif  CheckLock()  then  exit mouseUpif background field "NumStack" <= 2 thenbeepexit mouseUpend iflock screenget background field "NumStack"put empty into line it of background field "StateTable"put empty into line it of background field "StateTable-A"put empty into line it of background field "StateTable-B"put empty into line it of background field "StateTable-C"put empty into line it of background field "StateTable-D"put empty into line it of background field "StateTable-E"put empty into line it of background field "StackHeading"subtract 1 from background field "NumStack"put char 1 to value(background field "NumStack")  ¬¨of background field "StackList" into background field "StackList"put the top of background field "StateTable" into HoldTopput the textHeight of background field "StateTable" into Distanceget the height of background field "StateTable"subtract Distance from itset height of background field "StateTable" to itset height of background field "StackHeading" to itset top of background field "StateTable" to HoldTopset top of background field "StackHeading" to HoldTopget bottom of background field "StateTable"set top of background button "TableShrinkUp" to itget bottom of background button "TableShrinkUp"set top of background button "TableExpandDown" to itif  background field "NumStack" <= 2  then  ¬¨set icon of me to "GrayUp"set icon of background button "TableExpandDown" to "BlackDown"unlock screen with visual effect dissolveend mouseUp</script>
  264.     </part>
  265.     <part>
  266.         <id>9</id>
  267.         <type>button</type>
  268.         <visible> <true /> </visible>
  269.         <reserved5> 0 </reserved5>
  270.         <reserved4> 0 </reserved4>
  271.         <reserved3> 0 </reserved3>
  272.         <reserved2> 0 </reserved2>
  273.         <reserved1> 0 </reserved1>
  274.         <enabled> <true /> </enabled>
  275.         <rect>
  276.             <left>63</left>
  277.             <top>220</top>
  278.             <right>88</right>
  279.             <bottom>237</bottom>
  280.         </rect>
  281.         <style>rectangle</style>
  282.         <showName> <false /> </showName>
  283.         <highlight> <false /> </highlight>
  284.         <autoHighlight> <true /> </autoHighlight>
  285.         <sharedHighlight> <true /> </sharedHighlight>
  286.         <family>0</family>
  287.         <titleWidth>0</titleWidth>
  288.         <icon>15279</icon>
  289.         <textAlign>center</textAlign>
  290.         <font>Chicago</font>
  291.         <textSize>12</textSize>
  292.         <textStyle>plain</textStyle>
  293.         <name>TableExpandDown</name>
  294.         <script>on mouseUpif  CheckLock()  then  exit mouseUpif background field "NumStack" >= 9  thenbeepexit mouseUpend iflock screenadd 1 to background field "NumStack"put background field "NumStack" into NewLineNumput "?" into line NewLineNum of background field "StackHeading"get background field "NumSymbols"put "?,?? " into NewLinerepeat  it-1 timesput " ?,?? " after NewLineend repeatput NewLine into line NewLineNum of background field "StateTable"put NewLine into line NewLineNum of background field "StateTable-A"put NewLine into line NewLineNum of background field "StateTable-B"put NewLine into line NewLineNum of background field "StateTable-C"put NewLine into line NewLineNum of background field "StateTable-D"put NewLine into line NewLineNum of background field "StateTable-E"put the top of background field "StateTable" into HoldTopput the textHeight of background field "StateTable" into Distanceget the height of background field "StateTable"add Distance to itset height of background field "StateTable" to itset height of background field "StackHeading" to itset top of background field "StateTable" to HoldTopset top of background field "StackHeading" to HoldTopget bottom of background field "StateTable"set top of background button "TableShrinkUp" to itget bottom of background button "TableShrinkUp"set top of background button "TableExpandDown" to itif  background field "NumStack" >= 9  then  ¬¨set icon of me to "GrayDown"set icon of background button "TableShrinkUp" to "BlackUp"unlock screen with visual effect dissolvesend "NewStackSymbol"&& value(background field "NumStack") to  ¬¨background field "StackHeading"end mouseUp</script>
  295.     </part>
  296.     <part>
  297.         <id>10</id>
  298.         <type>button</type>
  299.         <visible> <true /> </visible>
  300.         <reserved5> 0 </reserved5>
  301.         <reserved4> 0 </reserved4>
  302.         <reserved3> 0 </reserved3>
  303.         <reserved2> 0 </reserved2>
  304.         <reserved1> 0 </reserved1>
  305.         <enabled> <true /> </enabled>
  306.         <rect>
  307.             <left>184</left>
  308.             <top>140</top>
  309.             <right>201</right>
  310.             <bottom>166</bottom>
  311.         </rect>
  312.         <style>rectangle</style>
  313.         <showName> <false /> </showName>
  314.         <highlight> <false /> </highlight>
  315.         <autoHighlight> <true /> </autoHighlight>
  316.         <sharedHighlight> <true /> </sharedHighlight>
  317.         <family>0</family>
  318.         <titleWidth>0</titleWidth>
  319.         <icon>3949</icon>
  320.         <textAlign>center</textAlign>
  321.         <font>Chicago</font>
  322.         <textSize>12</textSize>
  323.         <textStyle>plain</textStyle>
  324.         <name>TableShrinkLeft</name>
  325.         <script>on mouseUpif  CheckLock()  then  exit mouseUpif background field "NumSymbols" <= 2  thenbeepexit mouseUpend iflock screensubtract 1 from background field "NumSymbols"put background field "NumSymbols" into Numput char 1 to Num of background field "SymbolList"  ¬¨into background field "SymbolList"put char 1 to 6*Num of background field "SymbolHeading" ¬¨into background field "SymbolHeading"repeat  with  N = 1 to background field "NumStack"get char 1 to 6*Num-1 of line N of  ¬¨background field "StateTable"put it into line N of background field "StateTable"end repeatrepeat  with  N = 1 to background field "NumStack"get char 1 to 6*Num-1 of line N of  ¬¨background field "StateTable-A"put it into line N of background field "StateTable-A"end repeatrepeat  with  N = 1 to background field "NumStack"get char 1 to 6*Num-1 of line N of  ¬¨background field "StateTable-B"put it into line N of background field "StateTable-B"end repeatrepeat  with  N = 1 to background field "NumStack"get char 1 to 6*Num-1 of line N of  ¬¨background field "StateTable-C"put it into line N of background field "StateTable-C"end repeatrepeat  with  N = 1 to background field "NumStack"get char 1 to 6*Num-1 of line N of  ¬¨background field "StateTable-D"put it into line N of background field "StateTable-D"end repeatrepeat  with  N = 1 to background field "NumStack"get char 1 to 6*Num-1 of line N of  ¬¨background field "StateTable-E"put it into line N of background field "StateTable-E"end repeatput the left of background field "StateTable" into HoldLeftput 54 into Distanceget the width of background field "StateTable"subtract Distance from itset width of background field "StateTable" to itset width of background field "SymbolHeading" to itset left of background field "StateTable" to HoldLeftset left of background field "SymbolHeading" to HoldLeftget the left of background button "TableExpandRight"subtract Distance from itset left of background button "TableExpandRight" to itget the left of background button "TableShrinkLeft"subtract Distance from itset left of background button "TableShrinkLeft" to itset icon of background button "TableExpandRight" to "BlackRight"if  background field "NumSymbols" <= 2  then  ¬¨set icon of me to "GrayLeft"unlock screen with visual effect dissolveend mouseUp</script>
  326.     </part>
  327.     <part>
  328.         <id>11</id>
  329.         <type>button</type>
  330.         <visible> <true /> </visible>
  331.         <reserved5> 0 </reserved5>
  332.         <reserved4> 0 </reserved4>
  333.         <reserved3> 0 </reserved3>
  334.         <reserved2> 0 </reserved2>
  335.         <reserved1> 0 </reserved1>
  336.         <enabled> <true /> </enabled>
  337.         <rect>
  338.             <left>201</left>
  339.             <top>140</top>
  340.             <right>219</right>
  341.             <bottom>166</bottom>
  342.         </rect>
  343.         <style>rectangle</style>
  344.         <showName> <false /> </showName>
  345.         <highlight> <false /> </highlight>
  346.         <autoHighlight> <true /> </autoHighlight>
  347.         <sharedHighlight> <true /> </sharedHighlight>
  348.         <family>0</family>
  349.         <titleWidth>0</titleWidth>
  350.         <icon>8350</icon>
  351.         <textAlign>center</textAlign>
  352.         <font>Chicago</font>
  353.         <textSize>12</textSize>
  354.         <textStyle>plain</textStyle>
  355.         <name>TableExpandRight</name>
  356.         <script>on mouseUpif  CheckLock()  then  exit mouseUpif background field "NumSymbols" >= 5  thenbeepexit mouseUpend iflock screenput background field "NumSymbols" into prevNumadd 1 to background field "NumSymbols"repeat  with  N = 1 to value(background field "NumStack")put char 1 to 6*PrevNum-1 of line N of ¬¨background field "StateTable" &" ?,?? "¬¨into line N of background field "StateTable"put char 1 to 6*PrevNum-1 of line N of ¬¨background field "StateTable-A" &" ?,?? "¬¨into line N of background field "StateTable-A"put char 1 to 6*PrevNum-1 of line N of ¬¨background field "StateTable-B" &" ?,?? "¬¨into line N of background field "StateTable-B"put char 1 to 6*PrevNum-1 of line N of ¬¨background field "StateTable-C" &" ?,?? "¬¨into line N of background field "StateTable-C"put char 1 to 6*PrevNum-1 of line N of ¬¨background field "StateTable-D" &" ?,?? "¬¨into line N of background field "StateTable-D"put char 1 to 6*PrevNum-1 of line N of ¬¨background field "StateTable-E" &" ?,?? "¬¨into line N of background field "StateTable-E"end repeatput the left of background field "StateTable" into HoldLeftput 54 into Distanceget the width of background field "StateTable"add Distance to itset width of background field "StateTable" to itset width of background field "SymbolHeading" to itset left of background field "StateTable" to HoldLeftset left of background field "SymbolHeading" to HoldLeftget the right of background field "StateTable"set left of background button "TableShrinkLeft" to itget the right of background button "TableShrinkLeft"set left of background button "TableExpandRight" to itget background field "NumSymbols"put " ?    " ¬¨into char (6*it-5) to (6*it) of background field "SymbolHeading"set icon of background button "TableShrinkLeft" to "BlackLeft"if  background field "NumSymbols" >= 5  then  ¬¨set icon of me to "GrayRight"unlock screen with visual effect dissolvesend "NewSymbol"&& value(background field "NumSymbols") to  ¬¨background field "SymbolHeading"end mouseUp</script>
  357.     </part>
  358.     <part>
  359.         <id>12</id>
  360.         <type>field</type>
  361.         <visible> <true /> </visible>
  362.         <dontWrap> <false /> </dontWrap>
  363.         <dontSearch> <false /> </dontSearch>
  364.         <sharedText> <false /> </sharedText>
  365.         <fixedLineHeight> <false /> </fixedLineHeight>
  366.         <autoTab> <true /> </autoTab>
  367.         <lockText> <false /> </lockText>
  368.         <rect>
  369.             <left>75</left>
  370.             <top>47</top>
  371.             <right>512</right>
  372.             <bottom>69</bottom>
  373.         </rect>
  374.         <style>rectangle</style>
  375.         <autoSelect> <false /> </autoSelect>
  376.         <showLines> <false /> </showLines>
  377.         <wideMargins> <true /> </wideMargins>
  378.         <multipleLines> <false /> </multipleLines>
  379.         <reservedFamily> 0 </reservedFamily>
  380.         <titleWidth>0</titleWidth>
  381.         <icon>0</icon>
  382.         <textAlign>left</textAlign>
  383.         <font>HAS Font</font>
  384.         <textSize>14</textSize>
  385.         <textStyle>bold</textStyle>
  386.         <textHeight>18</textHeight>
  387.         <name>InputTape</name>
  388.         <script>on mouseUpset highlight of me to trueend mouseUp</script>
  389.     </part>
  390.     <part>
  391.         <id>16</id>
  392.         <type>button</type>
  393.         <visible> <true /> </visible>
  394.         <reserved5> 0 </reserved5>
  395.         <reserved4> 0 </reserved4>
  396.         <reserved3> 0 </reserved3>
  397.         <reserved2> 0 </reserved2>
  398.         <reserved1> 0 </reserved1>
  399.         <enabled> <true /> </enabled>
  400.         <rect>
  401.             <left>424</left>
  402.             <top>248</top>
  403.             <right>455</right>
  404.             <bottom>280</bottom>
  405.         </rect>
  406.         <style>transparent</style>
  407.         <showName> <false /> </showName>
  408.         <highlight> <false /> </highlight>
  409.         <autoHighlight> <true /> </autoHighlight>
  410.         <sharedHighlight> <true /> </sharedHighlight>
  411.         <family>0</family>
  412.         <titleWidth>0</titleWidth>
  413.         <icon>1014</icon>
  414.         <textAlign>center</textAlign>
  415.         <font>Chicago</font>
  416.         <textSize>12</textSize>
  417.         <textStyle>plain</textStyle>
  418.         <name>PreviousMachine</name>
  419.         <script>on mouseUpvisual effect scroll right  fast to blackvisual effect scroll right fastgo previous card of background Machineend mouseUp</script>
  420.     </part>
  421.     <part>
  422.         <id>17</id>
  423.         <type>button</type>
  424.         <visible> <true /> </visible>
  425.         <reserved5> 0 </reserved5>
  426.         <reserved4> 0 </reserved4>
  427.         <reserved3> 0 </reserved3>
  428.         <reserved2> 0 </reserved2>
  429.         <reserved1> 0 </reserved1>
  430.         <enabled> <true /> </enabled>
  431.         <rect>
  432.             <left>462</left>
  433.             <top>248</top>
  434.             <right>493</right>
  435.             <bottom>280</bottom>
  436.         </rect>
  437.         <style>transparent</style>
  438.         <showName> <false /> </showName>
  439.         <highlight> <false /> </highlight>
  440.         <autoHighlight> <true /> </autoHighlight>
  441.         <sharedHighlight> <true /> </sharedHighlight>
  442.         <family>0</family>
  443.         <titleWidth>0</titleWidth>
  444.         <icon>1013</icon>
  445.         <textAlign>center</textAlign>
  446.         <font>Chicago</font>
  447.         <textSize>12</textSize>
  448.         <textStyle>plain</textStyle>
  449.         <name>NextMachine</name>
  450.         <script>on mouseUpvisual effect scroll left fast to blackvisual effect scroll left fastgo next card of background Machineend mouseUp</script>
  451.     </part>
  452.     <part>
  453.         <id>18</id>
  454.         <type>button</type>
  455.         <visible> <true /> </visible>
  456.         <reserved5> 0 </reserved5>
  457.         <reserved4> 0 </reserved4>
  458.         <reserved3> 0 </reserved3>
  459.         <reserved2> 0 </reserved2>
  460.         <reserved1> 0 </reserved1>
  461.         <enabled> <true /> </enabled>
  462.         <rect>
  463.             <left>479</left>
  464.             <top>297</top>
  465.             <right>512</right>
  466.             <bottom>342</bottom>
  467.         </rect>
  468.         <style>transparent</style>
  469.         <showName> <true /> </showName>
  470.         <highlight> <false /> </highlight>
  471.         <autoHighlight> <true /> </autoHighlight>
  472.         <sharedHighlight> <true /> </sharedHighlight>
  473.         <family>0</family>
  474.         <titleWidth>-1</titleWidth>
  475.         <icon>-15872</icon>
  476.         <textAlign>center</textAlign>
  477.         <font>Chicago</font>
  478.         <textSize>12</textSize>
  479.         <textStyle>plain</textStyle>
  480.         <name>Quit</name>
  481.         <script>on mouseUpdoMenu "Quit HyperCard"end mouseUp</script>
  482.     </part>
  483.     <part>
  484.         <id>21</id>
  485.         <type>button</type>
  486.         <visible> <true /> </visible>
  487.         <reserved5> 0 </reserved5>
  488.         <reserved4> 0 </reserved4>
  489.         <reserved3> 0 </reserved3>
  490.         <reserved2> 0 </reserved2>
  491.         <reserved1> 0 </reserved1>
  492.         <enabled> <true /> </enabled>
  493.         <rect>
  494.             <left>408</left>
  495.             <top>101</top>
  496.             <right>508</right>
  497.             <bottom>123</bottom>
  498.         </rect>
  499.         <style>roundrect</style>
  500.         <showName> <true /> </showName>
  501.         <highlight> <false /> </highlight>
  502.         <autoHighlight> <true /> </autoHighlight>
  503.         <sharedHighlight> <false /> </sharedHighlight>
  504.         <family>0</family>
  505.         <titleWidth>0</titleWidth>
  506.         <icon>0</icon>
  507.         <textAlign>center</textAlign>
  508.         <font>Chicago</font>
  509.         <textSize>12</textSize>
  510.         <textStyle>plain</textStyle>
  511.         <name>RUN  (‚åòR)</name>
  512.         <script>on mouseUpglobal Stateif  char 1 of background field "TableState" <> background field "CurrentState"  thenput background field "CurrentState" into StateRetrieveStateTableend ifRunMachineend mouseUp</script>
  513.     </part>
  514.     <part>
  515.         <id>15</id>
  516.         <type>button</type>
  517.         <visible> <true /> </visible>
  518.         <reserved5> 0 </reserved5>
  519.         <reserved4> 0 </reserved4>
  520.         <reserved3> 0 </reserved3>
  521.         <reserved2> 0 </reserved2>
  522.         <reserved1> 0 </reserved1>
  523.         <enabled> <true /> </enabled>
  524.         <rect>
  525.             <left>77</left>
  526.             <top>68</top>
  527.             <right>99</right>
  528.             <bottom>93</bottom>
  529.         </rect>
  530.         <style>transparent</style>
  531.         <showName> <false /> </showName>
  532.         <highlight> <false /> </highlight>
  533.         <autoHighlight> <true /> </autoHighlight>
  534.         <sharedHighlight> <true /> </sharedHighlight>
  535.         <family>0</family>
  536.         <titleWidth>0</titleWidth>
  537.         <icon>22978</icon>
  538.         <textAlign>center</textAlign>
  539.         <font>Chicago</font>
  540.         <textSize>12</textSize>
  541.         <textStyle>plain</textStyle>
  542.         <name>ReadHead</name>
  543.         <script>on mouseUpglobal HeadPositionlock screenput 1 into HeadPositionput "A" into background field "CurrentState"put "A" into background field "TableState"put char 1 of background field "Finality"  ¬¨after background field "TableState"put background field "StateTable-A"  ¬¨into background field "StateTable"set loc of background button "ReadHead" to 88,78set loc of background field "CurrentState" to 90,83end mouseUp</script>
  544.     </part>
  545.     <part>
  546.         <id>22</id>
  547.         <type>button</type>
  548.         <visible> <true /> </visible>
  549.         <reserved5> 0 </reserved5>
  550.         <reserved4> 0 </reserved4>
  551.         <reserved3> 0 </reserved3>
  552.         <reserved2> 0 </reserved2>
  553.         <reserved1> 0 </reserved1>
  554.         <enabled> <true /> </enabled>
  555.         <rect>
  556.             <left>408</left>
  557.             <top>126</top>
  558.             <right>508</right>
  559.             <bottom>148</bottom>
  560.         </rect>
  561.         <style>roundrect</style>
  562.         <showName> <true /> </showName>
  563.         <highlight> <false /> </highlight>
  564.         <autoHighlight> <true /> </autoHighlight>
  565.         <sharedHighlight> <false /> </sharedHighlight>
  566.         <family>0</family>
  567.         <titleWidth>0</titleWidth>
  568.         <icon>0</icon>
  569.         <textAlign>center</textAlign>
  570.         <font>Chicago</font>
  571.         <textSize>12</textSize>
  572.         <textStyle>plain</textStyle>
  573.         <name>STEP  (‚åòS)</name>
  574.         <script>on mouseUpglobal Stateif  char 1 of background field "TableState" <> background field "CurrentState"  thenput background field "CurrentState" into StateRetrieveStateTableend ifStepMachineend mouseUp</script>
  575.     </part>
  576.     <part>
  577.         <id>27</id>
  578.         <type>field</type>
  579.         <visible> <true /> </visible>
  580.         <dontWrap> <false /> </dontWrap>
  581.         <dontSearch> <false /> </dontSearch>
  582.         <sharedText> <false /> </sharedText>
  583.         <fixedLineHeight> <false /> </fixedLineHeight>
  584.         <autoTab> <false /> </autoTab>
  585.         <lockText> <true /> </lockText>
  586.         <rect>
  587.             <left>80</left>
  588.             <top>73</top>
  589.             <right>101</right>
  590.             <bottom>93</bottom>
  591.         </rect>
  592.         <style>transparent</style>
  593.         <autoSelect> <false /> </autoSelect>
  594.         <showLines> <false /> </showLines>
  595.         <wideMargins> <false /> </wideMargins>
  596.         <multipleLines> <false /> </multipleLines>
  597.         <reservedFamily> 0 </reservedFamily>
  598.         <titleWidth>0</titleWidth>
  599.         <icon>0</icon>
  600.         <textAlign>left</textAlign>
  601.         <font>HAS Font</font>
  602.         <textSize>14</textSize>
  603.         <textStyle>bold</textStyle>
  604.         <textHeight>18</textHeight>
  605.         <name>CurrentState</name>
  606.         <script>on mouseUpsend "mouseUp" to background button "ReadHead"end mouseUp</script>
  607.     </part>
  608.     <part>
  609.         <id>23</id>
  610.         <type>button</type>
  611.         <visible> <true /> </visible>
  612.         <reserved5> 0 </reserved5>
  613.         <reserved4> 0 </reserved4>
  614.         <reserved3> 0 </reserved3>
  615.         <reserved2> 0 </reserved2>
  616.         <reserved1> 0 </reserved1>
  617.         <enabled> <true /> </enabled>
  618.         <rect>
  619.             <left>408</left>
  620.             <top>184</top>
  621.             <right>508</right>
  622.             <bottom>206</bottom>
  623.         </rect>
  624.         <style>roundrect</style>
  625.         <showName> <true /> </showName>
  626.         <highlight> <false /> </highlight>
  627.         <autoHighlight> <true /> </autoHighlight>
  628.         <sharedHighlight> <false /> </sharedHighlight>
  629.         <family>0</family>
  630.         <titleWidth>0</titleWidth>
  631.         <icon>0</icon>
  632.         <textAlign>center</textAlign>
  633.         <font>Chicago</font>
  634.         <textSize>12</textSize>
  635.         <textStyle>plain</textStyle>
  636.         <name>NEW</name>
  637.         <script>on mouseUpvisual effect stretch from topdomenu "New Card"select word 1 of background field "MachineTitle"end mouseUp</script>
  638.     </part>
  639.     <part>
  640.         <id>24</id>
  641.         <type>button</type>
  642.         <visible> <true /> </visible>
  643.         <reserved5> 0 </reserved5>
  644.         <reserved4> 0 </reserved4>
  645.         <reserved3> 0 </reserved3>
  646.         <reserved2> 0 </reserved2>
  647.         <reserved1> 0 </reserved1>
  648.         <enabled> <true /> </enabled>
  649.         <rect>
  650.             <left>409</left>
  651.             <top>209</top>
  652.             <right>509</right>
  653.             <bottom>231</bottom>
  654.         </rect>
  655.         <style>roundrect</style>
  656.         <showName> <true /> </showName>
  657.         <highlight> <false /> </highlight>
  658.         <autoHighlight> <true /> </autoHighlight>
  659.         <sharedHighlight> <false /> </sharedHighlight>
  660.         <family>0</family>
  661.         <titleWidth>0</titleWidth>
  662.         <icon>0</icon>
  663.         <textAlign>center</textAlign>
  664.         <font>Chicago</font>
  665.         <textSize>12</textSize>
  666.         <textStyle>plain</textStyle>
  667.         <name>DELETE</name>
  668.         <script>on mouseUpif  the number of cards of this background < 2  thenanswer "Only one machine left, can't delete."elseanswer "DELETE, are you sure?" with "yes","no"if  it = "yes"  thenvisual effect iris close to blackvisual effect iris opendomenu "Delete Card"if  the name of this background contains "Black"  thenvisual effect iris opengo to first card of background "Machine"end ifend ifend ifend mouseUp</script>
  669.     </part>
  670.     <part>
  671.         <id>25</id>
  672.         <type>button</type>
  673.         <visible> <true /> </visible>
  674.         <reserved5> 0 </reserved5>
  675.         <reserved4> 0 </reserved4>
  676.         <reserved3> 0 </reserved3>
  677.         <reserved2> 0 </reserved2>
  678.         <reserved1> 0 </reserved1>
  679.         <enabled> <true /> </enabled>
  680.         <rect>
  681.             <left>441</left>
  682.             <top>28</top>
  683.             <right>512</right>
  684.             <bottom>48</bottom>
  685.         </rect>
  686.         <style>checkbox</style>
  687.         <showName> <true /> </showName>
  688.         <highlight> <false /> </highlight>
  689.         <autoHighlight> <false /> </autoHighlight>
  690.         <sharedHighlight> <false /> </sharedHighlight>
  691.         <family>0</family>
  692.         <titleWidth>0</titleWidth>
  693.         <icon>0</icon>
  694.         <textAlign>center</textAlign>
  695.         <font>Chicago</font>
  696.         <textSize>12</textSize>
  697.         <textStyle>plain</textStyle>
  698.         <name>Locked</name>
  699.         <script>on mouseUpif highlight of me thenset highlight of me to falseset cantDelete of this card to falseset lockText of background field "MachineTitle" to falseelseset highlight of me to trueset cantDelete of this card to trueset lockText of background field "MachineTitle" to trueend ifend mouseUp</script>
  700.     </part>
  701.     <part>
  702.         <id>26</id>
  703.         <type>button</type>
  704.         <visible> <true /> </visible>
  705.         <reserved5> 0 </reserved5>
  706.         <reserved4> 0 </reserved4>
  707.         <reserved3> 0 </reserved3>
  708.         <reserved2> 0 </reserved2>
  709.         <reserved1> 0 </reserved1>
  710.         <enabled> <true /> </enabled>
  711.         <rect>
  712.             <left>440</left>
  713.             <top>297</top>
  714.             <right>475</right>
  715.             <bottom>342</bottom>
  716.         </rect>
  717.         <style>transparent</style>
  718.         <showName> <true /> </showName>
  719.         <highlight> <false /> </highlight>
  720.         <autoHighlight> <true /> </autoHighlight>
  721.         <sharedHighlight> <true /> </sharedHighlight>
  722.         <family>0</family>
  723.         <titleWidth>0</titleWidth>
  724.         <icon>19678</icon>
  725.         <textAlign>center</textAlign>
  726.         <font>Chicago</font>
  727.         <textSize>12</textSize>
  728.         <textStyle>plain</textStyle>
  729.         <name>Info</name>
  730.         <script>on mouseUpvisual effect barn door openpush cardgo to first card of background "InfoBackground"end mouseUp</script>
  731.     </part>
  732.     <part>
  733.         <id>37</id>
  734.         <type>field</type>
  735.         <visible> <true /> </visible>
  736.         <dontWrap> <false /> </dontWrap>
  737.         <dontSearch> <false /> </dontSearch>
  738.         <sharedText> <false /> </sharedText>
  739.         <fixedLineHeight> <true /> </fixedLineHeight>
  740.         <autoTab> <false /> </autoTab>
  741.         <lockText> <true /> </lockText>
  742.         <rect>
  743.             <left>362</left>
  744.             <top>113</top>
  745.             <right>392</right>
  746.             <bottom>342</bottom>
  747.         </rect>
  748.         <style>rectangle</style>
  749.         <autoSelect> <false /> </autoSelect>
  750.         <showLines> <false /> </showLines>
  751.         <wideMargins> <true /> </wideMargins>
  752.         <multipleLines> <false /> </multipleLines>
  753.         <reservedFamily> 0 </reservedFamily>
  754.         <titleWidth>0</titleWidth>
  755.         <icon>0</icon>
  756.         <textAlign>center</textAlign>
  757.         <font>HAS Font</font>
  758.         <textSize>14</textSize>
  759.         <textStyle>plain</textStyle>
  760.         <textHeight>16</textHeight>
  761.         <name>Stack</name>
  762.         <script>on mouseUpput 0 into background field "TopStack"put empty into background field "Stack"put "‚àÜ" into line 14 of background field "Stack"set topLeft of background button "StackPointerLeft" to 384,326set topLeft of background button "StackPointerRight" to 347,326end mouseUp</script>
  763.     </part>
  764.     <part>
  765.         <id>30</id>
  766.         <type>button</type>
  767.         <visible> <true /> </visible>
  768.         <reserved5> 0 </reserved5>
  769.         <reserved4> 0 </reserved4>
  770.         <reserved3> 0 </reserved3>
  771.         <reserved2> 0 </reserved2>
  772.         <reserved1> 0 </reserved1>
  773.         <enabled> <true /> </enabled>
  774.         <rect>
  775.             <left>409</left>
  776.             <top>154</top>
  777.             <right>509</right>
  778.             <bottom>176</bottom>
  779.         </rect>
  780.         <style>transparent</style>
  781.         <showName> <false /> </showName>
  782.         <highlight> <false /> </highlight>
  783.         <autoHighlight> <true /> </autoHighlight>
  784.         <sharedHighlight> <true /> </sharedHighlight>
  785.         <family>0</family>
  786.         <titleWidth>0</titleWidth>
  787.         <icon>0</icon>
  788.         <textAlign>center</textAlign>
  789.         <font>Chicago</font>
  790.         <textSize>12</textSize>
  791.         <textStyle>plain</textStyle>
  792.         <name>Restore Menus</name>
  793.         <script>on mouseUpset userLevel to 5play "Different"reset menuBarCustomMenuend mouseUp</script>
  794.     </part>
  795.     <part>
  796.         <id>31</id>
  797.         <type>field</type>
  798.         <visible> <false /> </visible>
  799.         <dontWrap> <false /> </dontWrap>
  800.         <dontSearch> <false /> </dontSearch>
  801.         <sharedText> <false /> </sharedText>
  802.         <fixedLineHeight> <false /> </fixedLineHeight>
  803.         <autoTab> <false /> </autoTab>
  804.         <lockText> <true /> </lockText>
  805.         <rect>
  806.             <left>138</left>
  807.             <top>310</top>
  808.             <right>274</right>
  809.             <bottom>336</bottom>
  810.         </rect>
  811.         <style>rectangle</style>
  812.         <autoSelect> <false /> </autoSelect>
  813.         <showLines> <false /> </showLines>
  814.         <wideMargins> <true /> </wideMargins>
  815.         <multipleLines> <false /> </multipleLines>
  816.         <reservedFamily> 0 </reservedFamily>
  817.         <titleWidth>0</titleWidth>
  818.         <icon>0</icon>
  819.         <textAlign>left</textAlign>
  820.         <font>Geneva</font>
  821.         <textSize>12</textSize>
  822.         <textStyle>plain</textStyle>
  823.         <textHeight>16</textHeight>
  824.         <name>SymbolList</name>
  825.         <script></script>
  826.     </part>
  827.     <part>
  828.         <id>32</id>
  829.         <type>field</type>
  830.         <visible> <true /> </visible>
  831.         <dontWrap> <false /> </dontWrap>
  832.         <dontSearch> <false /> </dontSearch>
  833.         <sharedText> <false /> </sharedText>
  834.         <fixedLineHeight> <false /> </fixedLineHeight>
  835.         <autoTab> <false /> </autoTab>
  836.         <lockText> <true /> </lockText>
  837.         <rect>
  838.             <left>17</left>
  839.             <top>115</top>
  840.             <right>52</right>
  841.             <bottom>137</bottom>
  842.         </rect>
  843.         <style>rectangle</style>
  844.         <autoSelect> <false /> </autoSelect>
  845.         <showLines> <false /> </showLines>
  846.         <wideMargins> <true /> </wideMargins>
  847.         <multipleLines> <false /> </multipleLines>
  848.         <reservedFamily> 0 </reservedFamily>
  849.         <titleWidth>0</titleWidth>
  850.         <icon>0</icon>
  851.         <textAlign>left</textAlign>
  852.         <font>HAS Font</font>
  853.         <textSize>14</textSize>
  854.         <textStyle>bold</textStyle>
  855.         <textHeight>18</textHeight>
  856.         <name>TableState</name>
  857.         <script>on mouseUpglobal Stateif  CheckLock()  then  exit mouseUpput char 1 of background field "TableState" into Stateif  the shiftKey is down  thenif  char 2 of me <> "Δí"  thenput "Δí" into char 2 of meif  State = "A"  thenput "Δí" into char 1 of background field "Finality"else if  State = "B"  thenput "Δí" into char 2 of background field "Finality"else if  State = "C"  thenput "Δí" into char 3 of background field "Finality"else if  State = "D"  thenput "Δí" into char 4 of background field "Finality"else if  State = "E"  thenput "Δí" into char 5 of background field "Finality"end ifelseput space into char 2 of meif  State = "A"  thenput " " into char 1 of background field "Finality"else if  State = "B"  thenput " " into char 2 of background field "Finality"else if  State = "C"  thenput " " into char 3 of background field "Finality"else if  State = "D"  thenput " " into char 4 of background field "Finality"else if  State = "E"  thenput " " into char 5 of background field "Finality"end ifend ifelse  if  the optionKey is not down  thenif  State = "A"  thenput "B" into StateRetrieveStateTableelse  if  State = "B"  thenput "C" into StateRetrieveStateTableelse  if  State = "C"  thenput "D" into StateRetrieveStateTableelse  if  State = "D"  thenput "E" into StateRetrieveStateTableelse  if  State = "E"  thenput "A" into StateRetrieveStateTableend ifend ifend mouseUp</script>
  858.     </part>
  859.     <part>
  860.         <id>33</id>
  861.         <type>field</type>
  862.         <visible> <false /> </visible>
  863.         <dontWrap> <false /> </dontWrap>
  864.         <dontSearch> <false /> </dontSearch>
  865.         <sharedText> <false /> </sharedText>
  866.         <fixedLineHeight> <false /> </fixedLineHeight>
  867.         <autoTab> <false /> </autoTab>
  868.         <lockText> <false /> </lockText>
  869.         <rect>
  870.             <left>116</left>
  871.             <top>309</top>
  872.             <right>171</right>
  873.             <bottom>329</bottom>
  874.         </rect>
  875.         <style>rectangle</style>
  876.         <autoSelect> <false /> </autoSelect>
  877.         <showLines> <false /> </showLines>
  878.         <wideMargins> <false /> </wideMargins>
  879.         <multipleLines> <false /> </multipleLines>
  880.         <reservedFamily> 0 </reservedFamily>
  881.         <titleWidth>0</titleWidth>
  882.         <icon>0</icon>
  883.         <textAlign>left</textAlign>
  884.         <font>Geneva</font>
  885.         <textSize>12</textSize>
  886.         <textStyle>plain</textStyle>
  887.         <textHeight>16</textHeight>
  888.         <name>NumStack</name>
  889.         <script></script>
  890.     </part>
  891.     <part>
  892.         <id>34</id>
  893.         <type>field</type>
  894.         <visible> <false /> </visible>
  895.         <dontWrap> <false /> </dontWrap>
  896.         <dontSearch> <false /> </dontSearch>
  897.         <sharedText> <false /> </sharedText>
  898.         <fixedLineHeight> <false /> </fixedLineHeight>
  899.         <autoTab> <false /> </autoTab>
  900.         <lockText> <false /> </lockText>
  901.         <rect>
  902.             <left>178</left>
  903.             <top>313</top>
  904.             <right>230</right>
  905.             <bottom>331</bottom>
  906.         </rect>
  907.         <style>rectangle</style>
  908.         <autoSelect> <false /> </autoSelect>
  909.         <showLines> <false /> </showLines>
  910.         <wideMargins> <false /> </wideMargins>
  911.         <multipleLines> <false /> </multipleLines>
  912.         <reservedFamily> 0 </reservedFamily>
  913.         <titleWidth>0</titleWidth>
  914.         <icon>0</icon>
  915.         <textAlign>left</textAlign>
  916.         <font>Geneva</font>
  917.         <textSize>12</textSize>
  918.         <textStyle>plain</textStyle>
  919.         <textHeight>16</textHeight>
  920.         <name>TopStack</name>
  921.         <script></script>
  922.     </part>
  923.     <part>
  924.         <id>29</id>
  925.         <type>field</type>
  926.         <visible> <false /> </visible>
  927.         <dontWrap> <false /> </dontWrap>
  928.         <dontSearch> <true /> </dontSearch>
  929.         <sharedText> <false /> </sharedText>
  930.         <fixedLineHeight> <false /> </fixedLineHeight>
  931.         <autoTab> <false /> </autoTab>
  932.         <lockText> <false /> </lockText>
  933.         <rect>
  934.             <left>354</left>
  935.             <top>97</top>
  936.             <right>512</right>
  937.             <bottom>342</bottom>
  938.         </rect>
  939.         <style>rectangle</style>
  940.         <autoSelect> <false /> </autoSelect>
  941.         <showLines> <false /> </showLines>
  942.         <wideMargins> <true /> </wideMargins>
  943.         <multipleLines> <false /> </multipleLines>
  944.         <reservedFamily> 0 </reservedFamily>
  945.         <titleWidth>0</titleWidth>
  946.         <icon>0</icon>
  947.         <textAlign>center</textAlign>
  948.         <font>Chicago</font>
  949.         <textSize>12</textSize>
  950.         <textStyle>plain</textStyle>
  951.         <textHeight>16</textHeight>
  952.         <name>Prompt</name>
  953.         <script></script>
  954.     </part>
  955.     <part>
  956.         <id>35</id>
  957.         <type>field</type>
  958.         <visible> <false /> </visible>
  959.         <dontWrap> <false /> </dontWrap>
  960.         <dontSearch> <false /> </dontSearch>
  961.         <sharedText> <false /> </sharedText>
  962.         <fixedLineHeight> <false /> </fixedLineHeight>
  963.         <autoTab> <false /> </autoTab>
  964.         <lockText> <false /> </lockText>
  965.         <rect>
  966.             <left>238</left>
  967.             <top>140</top>
  968.             <right>296</right>
  969.             <bottom>185</bottom>
  970.         </rect>
  971.         <style>rectangle</style>
  972.         <autoSelect> <false /> </autoSelect>
  973.         <showLines> <false /> </showLines>
  974.         <wideMargins> <false /> </wideMargins>
  975.         <multipleLines> <false /> </multipleLines>
  976.         <reservedFamily> 0 </reservedFamily>
  977.         <titleWidth>0</titleWidth>
  978.         <icon>0</icon>
  979.         <textAlign>left</textAlign>
  980.         <font>Geneva</font>
  981.         <textSize>12</textSize>
  982.         <textStyle>plain</textStyle>
  983.         <textHeight>16</textHeight>
  984.         <name>StackList</name>
  985.         <script></script>
  986.     </part>
  987.     <part>
  988.         <id>36</id>
  989.         <type>field</type>
  990.         <visible> <false /> </visible>
  991.         <dontWrap> <false /> </dontWrap>
  992.         <dontSearch> <false /> </dontSearch>
  993.         <sharedText> <false /> </sharedText>
  994.         <fixedLineHeight> <false /> </fixedLineHeight>
  995.         <autoTab> <false /> </autoTab>
  996.         <lockText> <false /> </lockText>
  997.         <rect>
  998.             <left>244</left>
  999.             <top>325</top>
  1000.             <right>340</right>
  1001.             <bottom>342</bottom>
  1002.         </rect>
  1003.         <style>rectangle</style>
  1004.         <autoSelect> <false /> </autoSelect>
  1005.         <showLines> <false /> </showLines>
  1006.         <wideMargins> <false /> </wideMargins>
  1007.         <multipleLines> <false /> </multipleLines>
  1008.         <reservedFamily> 0 </reservedFamily>
  1009.         <titleWidth>0</titleWidth>
  1010.         <icon>0</icon>
  1011.         <textAlign>left</textAlign>
  1012.         <font>Geneva</font>
  1013.         <textSize>12</textSize>
  1014.         <textStyle>plain</textStyle>
  1015.         <textHeight>16</textHeight>
  1016.         <name>Finality</name>
  1017.         <script></script>
  1018.     </part>
  1019.     <part>
  1020.         <id>39</id>
  1021.         <type>button</type>
  1022.         <visible> <true /> </visible>
  1023.         <reserved5> 0 </reserved5>
  1024.         <reserved4> 0 </reserved4>
  1025.         <reserved3> 0 </reserved3>
  1026.         <reserved2> 0 </reserved2>
  1027.         <reserved1> 0 </reserved1>
  1028.         <enabled> <true /> </enabled>
  1029.         <rect>
  1030.             <left>347</left>
  1031.             <top>326</top>
  1032.             <right>369</right>
  1033.             <bottom>339</bottom>
  1034.         </rect>
  1035.         <style>transparent</style>
  1036.         <showName> <false /> </showName>
  1037.         <highlight> <false /> </highlight>
  1038.         <autoHighlight> <false /> </autoHighlight>
  1039.         <sharedHighlight> <true /> </sharedHighlight>
  1040.         <family>0</family>
  1041.         <titleWidth>0</titleWidth>
  1042.         <icon>16560</icon>
  1043.         <textAlign>center</textAlign>
  1044.         <font>Chicago</font>
  1045.         <textSize>12</textSize>
  1046.         <textStyle>plain</textStyle>
  1047.         <name>StackPointerRight</name>
  1048.         <script></script>
  1049.     </part>
  1050.     <part>
  1051.         <id>38</id>
  1052.         <type>button</type>
  1053.         <visible> <true /> </visible>
  1054.         <reserved5> 0 </reserved5>
  1055.         <reserved4> 0 </reserved4>
  1056.         <reserved3> 0 </reserved3>
  1057.         <reserved2> 0 </reserved2>
  1058.         <reserved1> 0 </reserved1>
  1059.         <enabled> <true /> </enabled>
  1060.         <rect>
  1061.             <left>384</left>
  1062.             <top>326</top>
  1063.             <right>406</right>
  1064.             <bottom>339</bottom>
  1065.         </rect>
  1066.         <style>transparent</style>
  1067.         <showName> <false /> </showName>
  1068.         <highlight> <false /> </highlight>
  1069.         <autoHighlight> <false /> </autoHighlight>
  1070.         <sharedHighlight> <true /> </sharedHighlight>
  1071.         <family>0</family>
  1072.         <titleWidth>0</titleWidth>
  1073.         <icon>15420</icon>
  1074.         <textAlign>center</textAlign>
  1075.         <font>Chicago</font>
  1076.         <textSize>12</textSize>
  1077.         <textStyle>plain</textStyle>
  1078.         <name>StackPointerLeft</name>
  1079.         <script></script>
  1080.     </part>
  1081.     <part>
  1082.         <id>40</id>
  1083.         <type>button</type>
  1084.         <visible> <true /> </visible>
  1085.         <reserved5> 0 </reserved5>
  1086.         <reserved4> 0 </reserved4>
  1087.         <reserved3> 0 </reserved3>
  1088.         <reserved2> 0 </reserved2>
  1089.         <reserved1> 0 </reserved1>
  1090.         <enabled> <true /> </enabled>
  1091.         <rect>
  1092.             <left>0</left>
  1093.             <top>0</top>
  1094.             <right>273</right>
  1095.             <bottom>34</bottom>
  1096.         </rect>
  1097.         <style>transparent</style>
  1098.         <showName> <false /> </showName>
  1099.         <highlight> <false /> </highlight>
  1100.         <autoHighlight> <false /> </autoHighlight>
  1101.         <sharedHighlight> <true /> </sharedHighlight>
  1102.         <family>0</family>
  1103.         <titleWidth>0</titleWidth>
  1104.         <icon>0</icon>
  1105.         <textAlign>center</textAlign>
  1106.         <font>Chicago</font>
  1107.         <textSize>12</textSize>
  1108.         <textStyle>plain</textStyle>
  1109.         <name>ShowMenu</name>
  1110.         <script>on mouseDownshow menuBarend mouseDown</script>
  1111.     </part>
  1112.     <part>
  1113.         <id>41</id>
  1114.         <type>field</type>
  1115.         <visible> <false /> </visible>
  1116.         <dontWrap> <false /> </dontWrap>
  1117.         <dontSearch> <false /> </dontSearch>
  1118.         <sharedText> <false /> </sharedText>
  1119.         <fixedLineHeight> <true /> </fixedLineHeight>
  1120.         <autoTab> <false /> </autoTab>
  1121.         <lockText> <false /> </lockText>
  1122.         <rect>
  1123.             <left>230</left>
  1124.             <top>87</top>
  1125.             <right>349</right>
  1126.             <bottom>132</bottom>
  1127.         </rect>
  1128.         <style>rectangle</style>
  1129.         <autoSelect> <false /> </autoSelect>
  1130.         <showLines> <false /> </showLines>
  1131.         <wideMargins> <true /> </wideMargins>
  1132.         <multipleLines> <false /> </multipleLines>
  1133.         <reservedFamily> 0 </reservedFamily>
  1134.         <titleWidth>0</titleWidth>
  1135.         <icon>0</icon>
  1136.         <textAlign>left</textAlign>
  1137.         <font>HAS Font</font>
  1138.         <textSize>14</textSize>
  1139.         <textStyle>bold</textStyle>
  1140.         <textHeight>18</textHeight>
  1141.         <name>StateTable-A</name>
  1142.         <script></script>
  1143.     </part>
  1144.     <part>
  1145.         <id>42</id>
  1146.         <type>field</type>
  1147.         <visible> <false /> </visible>
  1148.         <dontWrap> <false /> </dontWrap>
  1149.         <dontSearch> <false /> </dontSearch>
  1150.         <sharedText> <false /> </sharedText>
  1151.         <fixedLineHeight> <true /> </fixedLineHeight>
  1152.         <autoTab> <false /> </autoTab>
  1153.         <lockText> <false /> </lockText>
  1154.         <rect>
  1155.             <left>230</left>
  1156.             <top>131</top>
  1157.             <right>349</right>
  1158.             <bottom>176</bottom>
  1159.         </rect>
  1160.         <style>rectangle</style>
  1161.         <autoSelect> <false /> </autoSelect>
  1162.         <showLines> <false /> </showLines>
  1163.         <wideMargins> <true /> </wideMargins>
  1164.         <multipleLines> <false /> </multipleLines>
  1165.         <reservedFamily> 0 </reservedFamily>
  1166.         <titleWidth>0</titleWidth>
  1167.         <icon>0</icon>
  1168.         <textAlign>left</textAlign>
  1169.         <font>HAS Font</font>
  1170.         <textSize>14</textSize>
  1171.         <textStyle>bold</textStyle>
  1172.         <textHeight>18</textHeight>
  1173.         <name>StateTable-B</name>
  1174.         <script></script>
  1175.     </part>
  1176.     <part>
  1177.         <id>43</id>
  1178.         <type>field</type>
  1179.         <visible> <false /> </visible>
  1180.         <dontWrap> <false /> </dontWrap>
  1181.         <dontSearch> <false /> </dontSearch>
  1182.         <sharedText> <false /> </sharedText>
  1183.         <fixedLineHeight> <true /> </fixedLineHeight>
  1184.         <autoTab> <false /> </autoTab>
  1185.         <lockText> <false /> </lockText>
  1186.         <rect>
  1187.             <left>230</left>
  1188.             <top>219</top>
  1189.             <right>349</right>
  1190.             <bottom>264</bottom>
  1191.         </rect>
  1192.         <style>rectangle</style>
  1193.         <autoSelect> <false /> </autoSelect>
  1194.         <showLines> <false /> </showLines>
  1195.         <wideMargins> <true /> </wideMargins>
  1196.         <multipleLines> <false /> </multipleLines>
  1197.         <reservedFamily> 0 </reservedFamily>
  1198.         <titleWidth>0</titleWidth>
  1199.         <icon>0</icon>
  1200.         <textAlign>left</textAlign>
  1201.         <font>HAS Font</font>
  1202.         <textSize>14</textSize>
  1203.         <textStyle>bold</textStyle>
  1204.         <textHeight>18</textHeight>
  1205.         <name>StateTable-D</name>
  1206.         <script></script>
  1207.     </part>
  1208.     <part>
  1209.         <id>44</id>
  1210.         <type>field</type>
  1211.         <visible> <false /> </visible>
  1212.         <dontWrap> <false /> </dontWrap>
  1213.         <dontSearch> <false /> </dontSearch>
  1214.         <sharedText> <false /> </sharedText>
  1215.         <fixedLineHeight> <true /> </fixedLineHeight>
  1216.         <autoTab> <false /> </autoTab>
  1217.         <lockText> <false /> </lockText>
  1218.         <rect>
  1219.             <left>230</left>
  1220.             <top>263</top>
  1221.             <right>349</right>
  1222.             <bottom>308</bottom>
  1223.         </rect>
  1224.         <style>rectangle</style>
  1225.         <autoSelect> <false /> </autoSelect>
  1226.         <showLines> <false /> </showLines>
  1227.         <wideMargins> <true /> </wideMargins>
  1228.         <multipleLines> <false /> </multipleLines>
  1229.         <reservedFamily> 0 </reservedFamily>
  1230.         <titleWidth>0</titleWidth>
  1231.         <icon>0</icon>
  1232.         <textAlign>left</textAlign>
  1233.         <font>HAS Font</font>
  1234.         <textSize>14</textSize>
  1235.         <textStyle>bold</textStyle>
  1236.         <textHeight>18</textHeight>
  1237.         <name>StateTable-E</name>
  1238.         <script></script>
  1239.     </part>
  1240.     <part>
  1241.         <id>45</id>
  1242.         <type>field</type>
  1243.         <visible> <false /> </visible>
  1244.         <dontWrap> <false /> </dontWrap>
  1245.         <dontSearch> <false /> </dontSearch>
  1246.         <sharedText> <false /> </sharedText>
  1247.         <fixedLineHeight> <false /> </fixedLineHeight>
  1248.         <autoTab> <false /> </autoTab>
  1249.         <lockText> <false /> </lockText>
  1250.         <rect>
  1251.             <left>243</left>
  1252.             <top>308</top>
  1253.             <right>340</right>
  1254.             <bottom>325</bottom>
  1255.         </rect>
  1256.         <style>rectangle</style>
  1257.         <autoSelect> <false /> </autoSelect>
  1258.         <showLines> <false /> </showLines>
  1259.         <wideMargins> <false /> </wideMargins>
  1260.         <multipleLines> <false /> </multipleLines>
  1261.         <reservedFamily> 0 </reservedFamily>
  1262.         <titleWidth>0</titleWidth>
  1263.         <icon>0</icon>
  1264.         <textAlign>left</textAlign>
  1265.         <font>Geneva</font>
  1266.         <textSize>12</textSize>
  1267.         <textStyle>plain</textStyle>
  1268.         <textHeight>16</textHeight>
  1269.         <name>StateList</name>
  1270.         <script></script>
  1271.     </part>
  1272.     <part>
  1273.         <id>46</id>
  1274.         <type>field</type>
  1275.         <visible> <false /> </visible>
  1276.         <dontWrap> <false /> </dontWrap>
  1277.         <dontSearch> <false /> </dontSearch>
  1278.         <sharedText> <false /> </sharedText>
  1279.         <fixedLineHeight> <true /> </fixedLineHeight>
  1280.         <autoTab> <false /> </autoTab>
  1281.         <lockText> <false /> </lockText>
  1282.         <rect>
  1283.             <left>230</left>
  1284.             <top>175</top>
  1285.             <right>349</right>
  1286.             <bottom>220</bottom>
  1287.         </rect>
  1288.         <style>rectangle</style>
  1289.         <autoSelect> <false /> </autoSelect>
  1290.         <showLines> <false /> </showLines>
  1291.         <wideMargins> <true /> </wideMargins>
  1292.         <multipleLines> <false /> </multipleLines>
  1293.         <reservedFamily> 0 </reservedFamily>
  1294.         <titleWidth>0</titleWidth>
  1295.         <icon>0</icon>
  1296.         <textAlign>left</textAlign>
  1297.         <font>HAS Font</font>
  1298.         <textSize>14</textSize>
  1299.         <textStyle>bold</textStyle>
  1300.         <textHeight>18</textHeight>
  1301.         <name>StateTable-C</name>
  1302.         <script></script>
  1303.     </part>
  1304.     <name>Machine</name>
  1305.     <script>on newCardset cursor to busyput 3 into background field "NumStates"put "ABCDE" into background field "StateList"put " Δí Δí " into background field "Finality"lock screenput 2 into background field "NumSymbols"put " a     b    " into background field "SymbolHeading"put "ab" into background field "SymbolList"put 2 into background field "NumStack"put "‚àÜ" into line 1 of background field "StackHeading"put "x" into line 2 of background field "StackHeading"put "‚àÜx" into background field "StackList"put "?,??  ?,?? " into line 1 of background field "StateTable-A"put "?,??  ?,?? " into line 2 of background field "StateTable-A"put "?,??  ?,?? " into line 1 of background field "StateTable-B"put "?,??  ?,?? " into line 2 of background field "StateTable-B"put "?,??  ?,?? " into line 1 of background field "StateTable-C"put "?,??  ?,?? " into line 2 of background field "StateTable-C"put "?,??  ?,?? " into line 1 of background field "StateTable-D"put "?,??  ?,?? " into line 2 of background field "StateTable-D"put "?,??  ?,?? " into line 1 of background field "StateTable-E"put "?,??  ?,?? " into line 2 of background field "StateTable-E"put "Untitled" into background field "MachineTitle"unlock screenend newCardon openCardglobal HeadPosition, Stateset cursor to busyif  top of card window <= 30  then  hide menuBarlock screenCustomMenuset cursor to busyput char 1 of background field "StateList"  ¬¨into background field "TableState"put char 1 of background field "Finality"  ¬¨after background field "TableState"put char 1 of background field "TableState" into Stateput background field "StateTable-A"  ¬¨into background field "StateTable"put 1 into HeadPositionset loc of background button "ReadHead" to 88,80set loc of background field "CurrentState" to 90,83put empty into background field "Stack"put 0 into background field "TopStack"put "‚àÜ" into line 14 of background field "Stack"set topLeft of background button "StackPointerLeft" to 384,326set topLeft of background button "StackPointerRight" to 347,326if  highlight of background button "Locked"  thenset lockText of background field "MachineTitle" to trueelseset lockText of background field "MachineTitle" to falseend ifunlock screenCleanUpBackgroundend openCardon CleanUpBackgroundset cursor to busylock screenput background field "NumStack" into NStackput the top of background field "StateTable" into HoldTopput the textHeight of background field "StateTable" into Distanceput NStack*Distance + (Distance div 2) into VertSizeset height of background field "StateTable" to VertSizeset height of background field "StackHeading" to VertSizeset top of background field "StateTable" to HoldTopset top of background field "StackHeading" to HoldTopset cursor to busyget the bottom of background field "StateTable"set top of background button "TableShrinkUp" to itget the bottom of background button "TableShrinkUp"set top of background button "TableExpandDown" to itput background field "NumSymbols" into NSymbolsput the left of background field "StateTable" into HoldLeftput (54*NSymbols) + 13 into HorSizeset width of background field "StateTable" to HorSizeset width of background field "StateTable" to HorSizeset width of background field "SymbolHeading" to HorSizeset left of background field "StateTable" to HoldLeftset left of background field "StateTable" to HoldLeftset left of background field "SymbolHeading" to HoldLeftset cursor to busyget the right of background field "StateTable"set left of background button "TableShrinkLeft" to itget the right of background button "TableShrinkLeft"set left of background button "TableExpandRight" to itput "A" into background field "CurrentState"set cursor to busyif  background field "NumSymbols" <= 2  thenset icon of background button "TableShrinkLeft" to "GrayLeft"elseset icon of background button "TableShrinkLeft" to "BlackLeft"end ifif  background field "NumSymbols" >= 6  thenset icon of background button "TableExpandRight" to "GrayRight"elseset icon of background button "TableExpandRight" to "BlackRight"end ifif  background field "NumStack" <= 2  thenset icon of background button "TableShrinkUp" to "GrayUp"elseset icon of background button "TableShrinkUp" to "BlackUp"end ifif  background field "NumStack" >= 9  thenset icon of background button "TableExpandDown" to "GrayDown"elseset icon of background button "TableExpandDown" to "BlackDown"end ifunlock screen with visual effect dissolve very fastend CleanUpBackgroundfunction CheckLockif  highlight of background button "Locked" thenbeepanswer "Machine locked, can't change."return trueelsereturn falseend ifend CheckLockon RunMachineglobal HeadPosition, Errorput the length of word 1 of background field "InputTape"into InLenif  HeadPosition > InLen  thenStepMachineexit RunMachineend ifput 0 into ErrorStepMachinerepeat until (HeadPosition > InLen) or (Error <> 0)StepMachineend repeatif  Error = 0  then  StepMachineend RunMachineon StepMachineglobal WchState, WchInput, WchStackglobal HeadPosition, Errorglobal Stateset cursor to busyput char HeadPosition of background field "InputTape" into InputSymbolif  InputSymbol = ""  thenEndOfTapeexit StepMachineend ifput FindSymbol(InputSymbol) into WchInputif  WchInput = 0  thenbeepanswer "Unknown input symbol."put 1 into Errorexit StepMachineend ifput background field "CurrentState" into Stateput offset(State,background field "StateList") into WchStateif  WchState = 0  thenbeepanswer "Undefined state."put 3 into Errorexit StepMachineend ifput (14-(background field "TopStack")) into StackLineput char 1 of line StackLine  ¬¨of background field "Stack" into TopSymbolput offset(TopSymbol,background field "StackList") into WchStackif  WchStack = 0  thenbeepanswer "Undefined stack symbol."put 5 into Errorexit StepMachineend iflock screenput char (6*WchInput)-5 of line WchStack  ¬¨of background field "StateTable"  ¬¨into background field "CurrentState"add 1 to HeadPositionget left of background field "CurrentState"set left of background field "CurrentState" to (it+9)get left of background button "ReadHead"set left of background button "ReadHead" to (it+9)put empty into line StackLine of background field "Stack"add 1 to StackLineput char (6*WchInput)-3 to (6*WchInput)-1  ¬¨of line WchStack  of background field "StateTable"  ¬¨into ReplaceStackif  length(ReplaceStack) < 3  then  put " " after ReplaceStackput offset(" ", ReplaceStack) into NumReplacesubtract 1 from NumReplaceif  NumReplace < 0  then  put 3 into NumReplacerepeat  with N = 1 to NumReplacesubtract 1 from StackLineput char N of ReplaceStack into line StackLine  ¬¨of background field "Stack"end repeatput (14 - StackLine) into background field "TopStack"put the textHeight of background field "Stack" into Distanceput 326 - (Distance*value(background field "TopStack"))  into NewTopset top of background button "StackPointerLeft" to  NewTopset top of background button "StackPointerRight" to  NewTopunlock screenput background field "CurrentState" into Stateif  State = "A"  thenput background field "StateTable-A"  ¬¨into background field "StateTable"put char 1 of background field "StateList"  ¬¨into background field "TableState"put char 1 of background field "Finality"  ¬¨after background field "TableState"else  if  State = "B"  thenput background field "StateTable-B"  ¬¨into background field "StateTable"put char 2 of background field "StateList"  ¬¨into background field "TableState"put char 2 of background field "Finality"  ¬¨after background field "TableState"else  if  State = "C"  thenput background field "StateTable-C"  ¬¨into background field "StateTable"put char 3 of background field "StateList"  ¬¨into background field "TableState"put char 3 of background field "Finality"  ¬¨after background field "TableState"else  if  State = "D"  thenput background field "StateTable-D"  ¬¨into background field "StateTable"put char 4 of background field "StateList"  ¬¨into background field "TableState"put char 4 of background field "Finality"  ¬¨after background field "TableState"else  if  State = "E"  thenput background field "StateTable-E"  ¬¨into background field "StateTable"put char 5 of background field "StateList"  ¬¨into background field "TableState"put char 5 of background field "Finality"  ¬¨after background field "TableState"end ifend StepMachineon EndOfTapeglobal WchStateput background field "CurrentState" into Stateput offset(State,background field "StateList") into WchStateif  WchState = 0  thenbeepanswer "Undefined state."put 3 into Errorexit EndOfTapeend ifif  (char 2 of background field "TableState" = "Δí") and  ¬¨(background field "TopStack" = 0)  thenplay "GLISS.sound"flash 5answer "ACCEPT"elseplay "BUZZER.sound"answer "REJECT"end ifend EndOfTapefunction FindSymbol InputSymbolget background field "SymbolList"repeat with ch = 1 to length(it)if  charToNum(char ch of it) = charToNum(InputSymbol)  thenreturn chend ifend repeatreturn 0end FindSymbolon RetrieveStateTableglobal Stateif  State = "A"  thenput background field "StateTable-A"  ¬¨into background field "StateTable"put char 1 of background field "StateList"  ¬¨into background field "TableState"put char 1 of background field "Finality"  ¬¨after background field "TableState"else  if  State = "B"  thenput background field "StateTable-B"  ¬¨into background field "StateTable"put char 2 of background field "StateList"  ¬¨into background field "TableState"put char 2 of background field "Finality"  ¬¨after background field "TableState"else  if  State = "C"  thenput background field "StateTable-C"  ¬¨into background field "StateTable"put char 3 of background field "StateList"  ¬¨into background field "TableState"put char 3 of background field "Finality"  ¬¨after background field "TableState"else  if  State = "D"  thenput background field "StateTable-D"  ¬¨into background field "StateTable"put char 4 of background field "StateList"  ¬¨into background field "TableState"put char 4 of background field "Finality"  ¬¨after background field "TableState"else  if  State = "E"  thenput background field "StateTable-E"  ¬¨into background field "StateTable"put char 5 of background field "StateList"  ¬¨into background field "TableState"put char 5 of background field "Finality"  ¬¨after background field "TableState"end ifend RetrieveStateTable</script>
  1306. </background>
  1307.